unit Unit1;

interface

uses
  SysUtils, Classes, ADODB, DB;

type
  TmyDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    AT_Company: TADOTable;
    AT_type: TADOTable;
    DS_company: TDataSource;
    DS_type: TDataSource;
    DS_dw: TDataSource;
    AT_Companyco_id: TAutoIncField;
    AT_Companycompany: TWideStringField;
    AT_Companyowner: TIntegerField;
    AT_tree: TADOTable;
    DS_tree: TDataSource;
    AQ_dw: TADOQuery;
    AQ_dwid: TAutoIncField;
    AQ_dwname: TWideStringField;
    AQ_dwquickinput: TWideStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  myDM: TmyDM;

implementation

uses Unit4;

{$R *.dfm}

procedure TmyDM.DataModuleCreate(Sender: TObject);
var mystring:string;
begin
{    ADOConnection1.Connected:=False;
   mystring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
   mystring:=mystring+mypath;
   mystring:=mystring+'sum.mdb;Persist Security Info=False';
   //form4.Caption:=mystring;
   ADOConnection1.ConnectionString:=mystring;
   ADOConnection1.Connected:=True;    }
end;

end.
